home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / button12.lha / button9001.ps < prev    next >
Text File  |  1993-08-05  |  4KB  |  112 lines

  1. % button9001.ps - A GNU Button Program
  2. % This program may be freely redistributed under the terms of the GNU
  3. % General Public License.
  4. % Copyright 1990 Free Software Foundation
  5. % This GNU Button program is distributed in the hope that it will be
  6. % useful, but WITHOUT ANY WARRANTY.  No author or distributor accepts
  7. % responsibility to anyone for the consequences of using it or for
  8. % whether it serves any particular purpose or works at all, unless he
  9. % says so in writing.  Refer to the GNU General Public License for
  10. % full details.
  11. % Everyone is granted permission to copy, modify and redistribute this
  12. % GNU Button Program, but only under the conditions described in the
  13. % GNU General Public License.  A copy of this license is supposed to
  14. % have been given to you along with this GNU Button Program so you can
  15. % know your rights and responsibilities.  It should be in a file named
  16. % COPYING.  Among other things, the copyright notice and this notice
  17. % must be preserved on all copies.
  18. % Hard copies of this button were first distributed at the June 1990
  19. % Baltimore Usenix.  They had black lettering on a green background on
  20. % a standard 2 1/4" safety pin button.  They were designed by Leonard
  21. % H. Tower Jr. who is also the author of this GNU Button Program.
  22. % Report bugs or improvements to: tower@prep.ai.mit.edu
  23. % Hard copies of this button are probably still available.  To get a
  24. % button, one must have either donated source code or documentation to
  25. % the GNU Project or make a donation of at least $ 2.00 for each
  26. % button.
  27. % If you wish a hard copy of a gnu button send:
  28. %     - a self-addressed, stamped envelope; and
  29. %     - either:
  30. %         - a reminder of your source or documentation contribution; or
  31. %         - a donation payable to the "Free Software Foundation"; and
  32. %     - specify how many each of these different versions you wish:
  33. %         Feb 88 (white GNU)        Jun 88 (yellow GNU)
  34. %        Jan 89 (blue GNUer)        Jun 89 (green GNUist)
  35. %        Jan 90 (yellow thanx GNU)
  36. % to:    L. Tower Jr.
  37. %     36 Porter Street,
  38. %    Somerville, MA 02143, USA
  39. % This program is available for anonymous ftp
  40. % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar.  It is probably
  41. % available in other source archives.
  42.  
  43. % Uses {in,out}sidecircletext routines from Adobe Cookbook.
  44. .so circtext.ps
  45.  
  46. % center button on 8 1/2" x 11" page
  47. 306 396 translate
  48.  
  49. % This is a kludge to give better edge resolution.
  50. % Note that postscript's scale command doesn't cut it.
  51. % It scales after the edges are set.
  52. % biggg is set to 2,3,4 or 3.9 to make a master that is that much larger.
  53. % The master is reduced that much by the button manufacturer.
  54. % If only 1200 dpi postscript printers were more common ...
  55. /biggg 1 def
  56.  
  57. /radius 82 biggg mul def
  58.  
  59. % useful for centering things
  60. /circleguide {
  61.   gsave
  62.   .5 setlinewidth
  63.   newpath
  64.     0 0 radius 0 360 arc
  65.   stroke
  66.   grestore
  67. } def
  68.  
  69. %circleguide
  70.  
  71. gsave
  72.   /ertext (thanx) def
  73.   /gnutext (GNU) def
  74.   /gnusize 48 biggg mul def
  75.   /ersize gnusize 4 div def
  76.   /Times-Bold findfont ersize scalefont setfont
  77.   /erwidth ertext stringwidth pop def
  78.   erwidth 2 div 1 biggg mul sub neg
  79.     ersize 2.2 mul moveto
  80.   ertext show
  81. grestore
  82. gsave
  83.   /Times-Bold findfont gnusize scalefont setfont
  84.   /gnuwidth gnutext stringwidth pop def
  85.   gnuwidth 2 div neg 
  86.     gnusize 4 div neg moveto
  87.   gnutext show
  88. grestore
  89. /Times-Bold findfont 14 biggg mul scalefont setfont
  90. (GNU's Not Unix)
  91.   14 biggg mul 90 53 biggg mul outsidecircletext
  92. /Times-Roman findfont 7.5 biggg mul scalefont setfont
  93. (Copyright 1990 Free Software Foundation)
  94.   7.5 biggg mul 90 69 biggg mul outsidecircletext
  95. (Anonymous ftp this button's postscript)
  96.   7.5 biggg mul 270 55 biggg mul insidecircletext
  97. (program from prep.ai.mit.edu:/u/emacs/button.N.MM.shar)
  98.   7.5 biggg mul 270 64 biggg mul insidecircletext
  99. (This button design may be freely redistributed under the terms of the GNU General Public License.)
  100.   7.5 biggg mul 270 73 biggg mul insidecircletext
  101. showpage
  102.